!--------------------------------
! Programa dedicado para calcular
! a representacao de um dado numero
! (em base 10) em uma base de escolha.
!
! Programa compilado e testado com:
! $ gfortran -o exec07 exec07.f90
! $ ./exec03
! 
! Forma de utilizacao auto-explicativa
! atravez de comentarios.
!
! _o_o_ oOo _o_o_ 03/08/2010

PROGRAM exec07
  IMPLICIT NONE
  INTEGER :: M, Q, bar, contador, contador2
  REAL :: foo, sqrtp
  INTEGER, DIMENSION(10000) :: fatores
  write(*,*) "- Entre com o numero que voce quer que eu represente em outra base."
  read(*,*) M
  write(*,*) "- Agora entre com a base que quer que eu utilize."
  read(*,*) Q

  contador=0
  DO WHILE (M>0)
    contador=contador+1
    fatores(contador)=MOD(M,Q)
    M = M/Q
  END DO

  write(*,*) "Cá está vosso vossa representação em base", Q
  DO WHILE (0<contador)
    write(*,*) fatores(contador)
    contador=contador-1
  END DO
END PROGRAM
